Lingvistica's Zoeken en spreken

ZOEK EN CONVERSEER

reacties op uitingen van de bezoeker."; $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); $read_text="Hallo ".$invr_bzkr.", Wat wilt u met ".$invr_chbt." delen om verder te gaan. Mijn eerste reactie is afkomstig van ".$invr_corp. " en luidt ".$invr_bzv1. "U kunt nu Inzoomen op meer informatie"; if ($invr_func != 1) { ?>
Wat wilt u met delen om verder te gaan.
width="48" height="48" BORDER="0" >
width="48" height="48" BORDER="0" > INVR CORP ".$invr_bzkr." INVR BZV1 ".$invr_bzv1; $invr_bzv1 = str_replace("+jullie +","+".$invr_corp."+",$invr_bzv1); $invr_bzv1 = str_replace("+jou+","+".$invr_chbt."+",$invr_bzv1); $invr_bzv1 = str_replace("+mij+","+".$invr_chbt."+",$invr_bzv1); $invr_bzv1 = str_replace("+u+","+".$invr_chbt."+",$invr_bzv1); $invr_bzv1 = str_replace("+ons+","+".$invr_bzkr."+",$invr_bzv1); $invr_bzv1 = str_replace("+wij+","+".$invr_bzkr."+",$invr_bzv1); $invr_bzv1 = str_replace("+we+","+".$invr_bzkr."+",$invr_bzv1); $invr_bzv1 = str_replace("+ik+","+".$invr_bzkr."+",$invr_bzv1); $invr_bzv1=str_replace("+"," ",$invr_bzv1); $save_bzv1=$invr_bzv1; echo "
INVR BZKR ".$invr_bzkr." INVR BZV1 ".$invr_bzv1; //////////////////////////////////////////// $bzv1_itms=explode(" ",$invr_bzv1); $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); if (strlen($invr_bzv1) > 256) { echo "Uw uiting is te lang voor dit onderdeel van Semanta. U kunt de tekst door hier te klikken op een andere manier door Semanta laten analyseren."; exit; } if ($invr_bzv2 == null) { foreach($bzv1_itms as $bzv1_key => $bzv1_val) { // echo "
BZV1 VAL NEW ".$bzv1_val; $base_rslt=xtrt_xxxx("xdotx".$bzv1_val,$invr_taal,"base"); if(count($base_rslt) > 0) { foreach($base_rslt as $rule_key =>$rule_val) { // echo " RULE KEY ". $rule_key." RULE VAL ".$rule_val; $rule_itms=explode("!!",$rule_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; $domn_itms=explode("@",$tref_domn); // print_r($domn_itms); $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $stref_antw=str_replace(" ","+",$tref_antw); $stref_vrag=str_replace(" ","+",$tref_vrag); $ltref_chbt="".$tref_domn.""; $ltref_corp="".$tref_antw.""; // $ltref_antw=""; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; $rslt_array[$tref_vrag."@".$tref_antw]=$rslt_array[$tref_vrag."@".$tref_antw]+1; // echo "
TREF VRAG ".$tref_vrag."TREF ANTW ".$ltref_antw; echo "
Voor het corpus ".$ltref_corp." kunt u een gesprek aangaan met ".$ltref_chbt; $read_text=$read_text." Voor het corpus ".$ltref_corp." heeft u gesproken met ".$tref_chbt; } } } } foreach($rslt_array as $rule_key =>$rule_val) { echo " RULE KEY ". $rule_key." RULE VAL ".$rule_val; } ///////////////////////////////////////////// // echo "
INVR BZV1 ". $invr_bzv1." SAVE BZV1 ".$save_bzv1; $bzv1_itms=explode(" ",$invr_bzv1); $patt_rslt=smta_tlkd($invr_bzv1."@patt"); // echo "
PATT RSLT
"; ksort($patt_rslt); // print_r($patt_rslt); $patt_sent=""; echo ""; foreach($patt_rslt as $patt_key =>$patt_val) { // echo "
PATT KEY ". $patt_key." PATT VAL ".$patt_val; $patt_itms=explode("@",$patt_val); $patt_gram=$patt_itms[0]; $patt_word=$patt_itms[1]; // echo "
PATT GRAM ". $patt_gram." PATT WORD ".$patt_word; $rule_rslt=xtrt_xxxx($patt_gram,"nederlands","rule"); // print_r($rule_rslt); foreach($rule_rslt as $rule_key => $rule_val) { // echo " RULE KEY ". $rule_key." RULE VAL ".$rule_val; $rule_itms=explode("!!",$rule_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_corp=$rule_itms[2]; $tref_vrag=$rule_itms[3]; $tref_antw=$rule_itms[4]; $stref_antw=str_replace(" ","+",$tref_antw); $stref_vrag=str_replace(" ","+",$tref_vrag); $ltref_antw="".$tref_antw.""; $ltref_antw=""; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; $patt_gram=$tref_vrag; // echo "
PATT GRAM ".$patt_gram." PATT WORD ".$patt_word." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw." TREF CHBT ".$tref_chbt." TREF ANTW ".$tref_antw." TREF LEVL ".$tref_levl." TREF IPAD ".$tref_ipad; // echo "
PATT GRAM ".urlencode($tref_vrag)." gevonden"; // if ($patt_gram == "bvn" or $patt_gram == "znw" or $patt_gram== "mvd" or $patt_gram == "com" or $patt_gram == "org" or $patt_gram == "prc") $sngl_array[$patt_word]=$sngl_array[$patt_word]+1; // print_r($sngl_array); if($trelt != $patt_word) { $trelt=$patt_word; $rtref_antw=str_replace("%%",$patt_word,$tref_antw); $stref_antw=str_replace(" ","+",$rtref_antw); $ltref_antw="".$rtref_antw.""; // echo ""; // echo ""; } else { $rtref_antw=str_replace("%%",$patt_word,$tref_antw); $stref_antw=str_replace(" ","+",$rtref_antw); $ltref_antw="".$rtref_antw.""; // $ltref_antw="".$rtref_antw.""; // echo ""; } } // print_r($rule_rslt); if ($prelt != $patt_word) { $prelt=$patt_word; $patt_sent=$patt_sent.$patt_word." "; } // echo "
PATT SENT ".$patt_sent." PATT GRAM ". $patt_gram." PATT WORD ".$patt_word; } // echo "
PATT SENT ".$patt_sent." PATT GRAM ". $patt_gram." PATT WORD ".$patt_word; echo "
".$patt_word." ".$patt_gram."".$tref_vrag."".$rtref_antw."
".$patt_word."".$ltref_antw."
".$ltref_antw."
"; $smts_rslt=tlkd_smts($patt_sent); foreach($smts_rslt as $smts_key =>$smts_val) { // echo "
SMTS KEY ".$smts_key; $smts_itms=explode("!!",$smts_key); $smts_lnks=$smts_itms[1]; $smts_rchs=$smts_itms[2]; // echo "
STMS LNKS ". $smts_lnks. " SMTS RCHS ".$smts_rchs; $sngl_array[$smts_lnks]=$sngl_array[$smts_lnks]+1; $sngl_array[$smts_rchs]=$sngl_array[$smts_rchs]+1; } $save_bzv1=$invr_bzv1; $invr_bzv1=$patt_sent; $patt_itms=explode(" ",$patt_sent); // print_r($patt_itms); // print_r($bzv1_itms); if (count($bzv1_itms) < 2 and $invr_bzv1 != null) { echo "
U heeft maar weinig woorden nodig. Want u heeft een uiting met 1 woord ingevoerd, als u wilt kunt u hier klikken om eerste in de databank van Lingvistica te kijken naar het gebruik van het woord."; echo "
".$invr_bzv1.""; $read_text=$read_text." U heeft maar weinig woorden nodig. Want u heeft een uiting met 1 woord ingevoerd, als u wilt kunt u hier klikken om eerste in de databank van Lingvistica te kijken naar het gebruik van het woord."; } foreach($patt_itms as $bzv1_key=> $bzv1_val) { // echo "
BZV1 VAL ".$bzv1_val; $wrdv_rslt=calc_text($bzv1_val); // print_r($wrdv_rslt); } ////////////////////// VERTALINGEN $uw_vraag=text_isrt($invr_taal."@uw vraag"); $uw_antwoord=text_isrt($invr_taal."@uw antwoord"); $suw_antwoord=str_replace(" ","_",$uw_antwoord); $bezoeker=''.text_isrt($invr_taal."@bezoeker"); $chatbotleraar=text_isrt($invr_taal."@chatbotleraar"); $automatisch_vertalen=text_isrt($invr_taal."@automatisch vertalen"); $vertalingen=text_isrt($invr_taal."@vertalingen"); $uvertalingen=strtoupper($vertalingen); $analyse=text_isrt($invr_taal."@analyse"); $taalkunde=text_isrt($invr_taal."@taalkunde"); $infrastructuur=text_isrt($invr_taal."@infrastructuur"); $aansprakelijkheid=''.text_isrt($invr_taal."@aansprakelijkheid"); $handelsmerken=text_isrt($invr_taal."@handelsmerken"); $statistieken=text_isrt($invr_taal."@statistieken"); $kennisdomeinen=text_isrt($invr_taal."@kennisdomeinen"); $gebruikersteksten=text_isrt($invr_taal."@gebruikersteksten"); $medische_termen=text_isrt($invr_taal."@medische termen"); $alpha_versie=text_isrt($invr_taal."@alpha versie")." ".$modl; $alpha_versie=''.text_isrt($invr_taal."@".$alpha_versie); $sprk_taal=" ".text_isrt($invr_taal."@en spreek")." ".text_isrt($invr_taal."@".$invr_taal); $copy_rght='Copyright Lingvistica BTW NL810085136B01 KvK 18062655'; $copy_rght=text_isrt($invr_taal."@".$copy_rght); $copy_rght=''.$copy_rght.' 2001-2015'; $versie=text_isrt($invr_taal."@alpha versie"); $bezoeker=text_isrt($invr_taal."@bezoeker"); // echo "
BEZOEKER ".$bezoeker; $woordonderhoud=text_isrt($invr_taal."@woordonderhoud"); $engl_taal=text_isrt("engels@".$invr_taal); $spch_taal=text_isrt($invr_taal."@".$invr_taal); $taal=text_isrt($invr_taal."@taal"); $IP_address=text_isrt($invr_taal."@IP address"); $taal=text_isrt($invr_taal."@taal"); $informatie=text_isrt($invr_taal."@informatie"); $internethelper=text_isrt($invr_taal."@internet helper"); $taal_communicatie=text_isrt($invr_taal."@Taal is een menselijk communicatiesysteem dat betekenis kan weergeven en doorgeven"); $zelfstandige_webpagina=text_isrt($invr_taal."@zelfstandige_webpagina"); $zegt_u_het_maar=text_isrt($invr_taal."@zegt u het maar"); $hoe_gebruikt_men=text_isrt($invr_taal."@hoe gebruikt men"); $semanta_spreekt=text_isrt($invr_taal."@Semanta of hoe een computerprogramma zou kunnen leren praten"); $lingvistica_taal=text_isrt($invr_taal."@lingvistica houdt zich bezig met taal alle talen"); $aanmelden=text_isrt($invr_taal."@aanmelden"); $we_spreken_nu=text_isrt($invr_taal."@we spreken nu"); $andere_webpagina=text_isrt($invr_taal."@andere webpagina"); $andere_chatbot=text_isrt($invr_taal."@ik wil een nieuwe chatbot maken"); $onderwerpen=text_isrt($invr_taal."@onderwerpen"); $chatbotnaam=text_isrt($invr_taal."@Chatbotnaam"); $gesprekspartner=text_isrt($invr_taal."@".$invr_chbt); $naar_de_voorgrond=text_isrt($invr_taal."@Naar de voorgrond"); $taal=text_isrt($invr_taal."@taal"); $kenmerk=text_isrt($invr_taal."@kenmerk"); $waarde=text_isrt($invr_taal."@waarde"); $landnaam=text_isrt($invr_taal."@landnaam"); $partners=text_isrt($invr_taal."@partnering ?"); $bzkr_land=text_isrt($invr_taal."@".$invr_bzv1); $bestand_selecteren=text_isrt($invr_taal."@bestand selecteren"); $geen_bestand_geselecteerd=text_isrt($invr_taal."@geen bestand geselecteerd"); $bestand_versturen=text_isrt($invr_taal."@bestand versturen"); $we_gaan_beginnen=text_isrt($invr_taal."@We gaan beginnen"); $verwacht_doorlooptijd_van=text_isrt($invr_taal."@verwacht doorlooptijd van"); $uw_bestand_is_foutief=text_isrt($invr_taal."@uw bestand is foutief"); $probeer_het_svp_opnieuw=text_isrt($invr_taal."@probeer het svp opnieuw"); $ip_adres=text_isrt($invr_taal."@ip-adres"); $taal=''.text_isrt($invr_taal."@Taal"); $land=''.text_isrt($invr_taal."@land"); $product_talen=text_isrt($invr_taal."@Talen waarvoor lingvistica producten en diensten heeft ontwikkeld."); $uw_vraag=text_isrt($invr_taal."@uw vraag"); $bezoeker=''.text_isrt($invr_taal."@bezoeker"); $chatbotleraar=text_isrt($invr_taal."@chatbotleraar"); $vertalingen=text_isrt($invr_taal."@vertalingen"); $analyse=text_isrt($invr_taal."@analyse"); $taalkunde=text_isrt($invr_taal."@taalkunde"); $aansprakelijkheid=''.text_isrt($invr_taal."@aansprakelijkheid"); $handelsmerken=text_isrt($invr_taal."@handelsmerken"); $statistieken=text_isrt($invr_taal."@statistieken"); $kennisdomeinen=text_isrt($invr_taal."@kennisdomeinen"); $gebruikersteksten=text_isrt($invr_taal."@gebruikersteksten"); $medische_termen=text_isrt($invr_taal."@medische termen"); $alpha_versie=text_isrt($invr_taal."@alpha versie")." ".$modl; $alpha_versie=''.text_isrt($invr_taal."@".$alpha_versie); $sprk_taal="
".text_isrt($invr_taal."@en spreek")." ".text_isrt($invr_taal."@".$bzkr_taal); $copy_rght='Copyright 2001-2011 Lingvistica BTW NL810085136B01 KvK 18062655'; $copy_rght=text_isrt($invr_taal."@".$copy_rght); $copy_rght=''.$copy_rght.''; $versie=text_isrt($invr_taal."@alpha versie"); $bezoeker=text_isrt($invr_taal."@bezoeker"); $taal=text_isrt($invr_taal."@language"); $IP_address=text_isrt($invr_taal."@IP address"); $taal=text_isrt($invr_taal."@taal"); $informatie=text_isrt($invr_taal."@informatie"); $internethelper=text_isrt($invr_taal."@internet helper"); $gesprekspartner=text_isrt($invr_taal."@gesprekspartner"); $chbt_hello=""; $lgroet=chbt_date("IT@1@2@".$invr_taal."@".$invr_bzkr); $leer_uw_computer_praten=text_isrt($invr_taal."@chatbotleraar"); $automatisch_vertalen=text_isrt($invr_taal."@automatisch vertalen"); $lec_text="translate-demos.asp"; $leesplezier=text_isrt($invr_taal."@leesplezier"); $gekozen_chatbot=text_isrt($invr_taal."@Gekozen taal en chatbot"); $taalkundige=text_isrt($invr_taal."@taalkundige"); $bol="http://www.bol.com/nl/boeken/engelse-boeken/index.html"; $uw_vraag=text_isrt($invr_taal."@uw vraag"); if ($invr_taal == "russisch") { $bol="http://www.kniga.com/books/"; } if ($invr_taal == "turks") { $bol="http://www.bol.com/nl/boeken/turkse-boeken/index.html"; } if ($invr_taal == "engels") { $bol="http://www.bol.com/nl/boeken/engelse-boeken/index.html"; } if ($invr_taal == "duits") { $bol="http://www.bol.com/nl/boeken/duitse-boeken/index.html"; } if ($invr_taal == "spaans") { $lec_text="translate-demos_es.asp"; $bol="http://www.bol.com/nl/boeken/spaanse-boeken/index.html"; } if ($invr_taal == "frans") { $lec_text="translate-demos_fr.asp"; $bol="http://www.bol.com/nl/boeken/franse-boeken/index.html"; } if ($invr_taal == "nederlands") { $lec_text="translate-demos_nl.asp"; $bol="http://www.bol.com/nl/boeken/nederlandse-boeken/index.html"; } if ($invr_taal == "portugees") { $lec_text="translate-demos_pt.asp"; } if ($invr_taal == "chinees-s") { $lec_text="translate-demos_zh.asp"; } if ($invr_taal == "chinees-t") { $lec_text="translate-demos_zh.asp"; } //////////////////// BZV2 ANALYSE // echo "
INVR BZV1 ".$invr_bzv1; if ($invr_bzv2 != null) { $ipad_cmds=$userip; $cmds_bzv2=$save_bzv1."[splt[".$invr_taal."[".$invr_corp."[".$save_bzv1."@".$invr_bzv2."[1"; echo "
GW27 INVR BZV2 ".$cmds_bzv2."
"; include ("chbt-cmds-code-2.php"); } /////////////////////////////// if ($invr_taal == null) { $invr_taal ="nederlands"; } echo "
ZOEKTEKST ".$invr_bzv1; $tlkd_rslt=smta_tlkd($patt_sent."@scnd"); foreach($tlkd_rslt as $tlkd_key => $tlkd_val) { $val_array[$tlkd_val]=$val_array[$tlkd_val]+1; } // echo ""; $sinvr_bzv1=str_replace(" ","+",$invr_bzv1); $hrelt=$smts_word; $vrag_rslt=xtrt_xxxx($save_bzv1,$invr_taal,"splt"); asort($vrag_rslt); // print_r($vrag_rslt); if (count($vrag_rslt) == 0) { ////////////////////// WOORDVORMVRAGEN $calc_rslt=calc_text($patt_sent,$invr_corp,$invr_bzv1); echo "Geen direct aanknopingspunt gevonden. Ik probeer het nog een keer"; // $invr_bzv1="Wat weet u van ".$invr_bzv1; $vrag_rslt=xtrt_xxxx($save_bzv1,$invr_taal,"smta"); } // echo "
ZOEKTEKST ".$invr_bzv1; echo "
VRAG RSLT ENTRIES ".count($vrag_rslt)."
"; // print_r($vrag_rslt); krsort($vrag_rslt); $arelt="xxxxxx"; $r=0; $data=0; $g=0; foreach ($vrag_rslt as $tref_key => $tref_val) { // echo "
TREF KEY ".$tref_key."TREF VAL ".$tref_val; $rule_itms=explode("!!",$tref_key); $tref_scre=$rule_itms[0]; $tref_taal=$rule_itms[1]; $tref_domn=$rule_itms[2]; // echo "
TREF DOMN ".$tref_domn; if($tref_domn != $invr_corp) continue; // echo "Value is $tref_domn
"; $domn_itms=explode("@",$tref_domn); $tref_vrag=$rule_itms[3]; $antw_itms=explode("@",$tref_antw); $tref_antw=$rule_itms[4]; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; ///////////////////////////////// $dspl_antw=$tref_antw; $dspl_antw=str_replace("gast",$invr_name,$dspl_antw); $dspl_antw=str_replace("xxxx","web master",$dspl_antw); $dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw); $dspl_antw=str_replace("invrvrag",$say,$dspl_antw); $dspl_antw=str_replace("invrdatm",$datm_datm,$dspl_antw); $dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw); $dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw); $dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw); if ($file_corp != null) { $dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw); } $dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw); $dspl_antw=str_replace("invrbzkr",$invr_bzkr,$dspl_antw); $dspl_antw=str_replace("invrname",$invr_name,$dspl_antw); $dspl_antw=str_replace("invrbzv1",$invr_bzv1,$dspl_antw); $dspl_antw=str_replace("invrbzv2",$invr_bzv2,$dspl_antw); $dspl_antw=str_replace("invrsmdm",$invr_smdm,$dspl_antw); $dspl_antw=str_replace("invrcont",$invr_cont,$dspl_antw); $dspl_antw=str_replace("invrhttp",$invr_ipad,$dspl_antw); $dspl_antw=str_replace("invripad",$invr_ipad,$dspl_antw); $tref_antw=$dspl_antw; // echo "
TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw; /////////////////////////////// $stref_antw=str_replace(" ","+",$tref_antw); $stref_vrag=str_replace(" ","+",$tref_vrag); $ltref_antw=""; $tref_datm=$rule_itms[5]; $tref_levl=$rule_itms[6]; $tref_ipad=$rule_itms[7]; $antw_text=$tref_antw; $antw_text=str_replace("xurpx"," [uitroep] ",$antw_text); $antw_text=str_replace("xndrx"," [nadruk] ",$antw_text); $antw_text=str_replace("xbrkx"," [keuze] ",$antw_text); $antw_text=str_replace("xonex"," ",$antw_text); $antw_text=str_replace("xtwox"," ",$antw_text); $antw_text=str_replace("orangeMarkerA","",$antw_text); $antw_text=str_replace("png","",$antw_text); $antw_text=str_replace("xclsx"," [+] ",$antw_text); $tref_antw=$antw_text; $dspl_antw=$antw_text; // echo "
TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw; $antw_itms=explode("@",$tref_antw); if ($tref_levl == 0 and $g <5) { $g=$g+1; $sw=0; $antw_array[$tref_scre."@".$tref_antw]=$antw_array[$tref_scre."@".$tref_antw]+1; // echo "
".$tref_antw.""; } if ($tref_levl == 1 and (substr($antw_text,0,6) != "./data")) { // print_r($antw_itms); $antw_antw=$antw_itms[0]; $antw_vrag=$antw_itms[1]; // print_r($antw_itms); $antw_text=$tref_antw; $antw_text=trim($antw_text); // echo "
ANTW TEXT ".urlencode($antw_text); $sngl_itms=explode(" ",$antw_text); // echo "
SNGL ITMS
"; // print_r($sngl_itms); if(count($sngl_itms) == 1) { foreach($sngl_itms as $sngl_key => $sngl_val) { $sngl_array[$sngl_val]=$sngl_array[$sngl_val]+1; } } $sw=1; $antw_text=str_replace("xqstx"," [vraag] ",$antw_text); $antw_array[$tref_scre."@".$tref_antw]=$antw_array[$tref_scre."@".$tref_antw]+1; // echo "
TELLER -".$r."-TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw; if ($r < 10 and $antw_text != null) { $comm_itms=explode(",",$antw_antw); // print_r($comm_itms); if ($r ==0 ) { echo "
".$tref_vrag."
".$antw_vrag."
"; // echo "

Mogelijk gerelateerde informatie

"; } if ($r > 0) { echo "
".$antw_vrag.""; } foreach($comm_itms as $comm_key => $comm_val) { echo "-".$comm_val.""; } $r=$r+1; // echo "
TELLER -".$r."-TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw; } } if ($tref_levl ==2) { $sw=2; $antw_itms=explode("@",$tref_antw); $antw_antw=$antw_itms[0]; $antw_vrag=$antw_itms[1]; // print_r($antw_itms); $antw_text=$tref_antw; $antw_text=trim($antw_text); // echo "
TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw; $antw_array[$tref_scre."@".$tref_antw]=$antw_array[$tref_scre."@".$tref_antw]+1; echo "
".$tref_vrag."
".$antw_vrag.""; } } // echo "
EN NU VERDER "; exit; ///////////////////// // print_r($antw_array); krsort($antw_array); $e=0; foreach($antw_array as $antw_key => $antw_val) { break; // $lknns_key="".$knns_file.""; $antw_itms=explode("@",$antw_key); $antw_scre=$antw_itms[0]; $antw_text=$antw_itms[1]; $antw_text=str_replace("xurpx"," [uitroep] ",$antw_text); $antw_text=str_replace("xndrx"," [nadruk] ",$antw_text); $antw_text=str_replace("xbrkx"," [keuze] ",$antw_text); $antw_text=str_replace("xonex"," ",$antw_text); $antw_text=str_replace("xtwox"," ",$antw_text); $antw_text=str_replace("orangeMarkerA","",$antw_text); $antw_text=str_replace("png","",$antw_text); $antw_text=str_replace("xclsx"," [+] ",$antw_text); $antw_dtls=explode(" ",$antw_text); $santw_text=""; // echo "
KEY ".$antw_key; if ($sw > -1 ) { $e=$e+1; if ($e < 5) { $cmds_ipad=$userip; if (strlen($antw_text)> 2) { $santw_text=str_replace(" ","+",$antw_text); // echo "
ANTW".$antw_text. " SANTW".$santw_text." INVR BZV1 ".$sinvr_bzv1; $lantw_text="".$antw_text.""; // echo "
".$antw_text.""; echo "
".$tref_vrag."
".$antw_vrag.""; if ($e == 1) { // echo "
"; } } if (substr($antw_text,0,10)== "THEURL:www") { $titl_dtls=explode("THETITLE:",$antw_text); // print_r($titl_dtls); $antw_url=substr($titl_dtls[0],0,512); $antw_titl=$titl_dtls[1]; // echo "
".$antw_titl.""; $antw_text=str_replace("THEURL:www","http://www.",$antw_url); $antw_text=str_replace("dot",".",$antw_text); $antw_text=str_replace("slash","/.",$antw_text); $antw_text="2 ".substr($antw_text,0,64)."...."; } if (substr($antw_text,0,6)== "./data") { $file_dtls=explode("/",$antw_text); $file_corp=$file_dtls[2]; $antw_text="3 ".$file_corp.""; } else { $antw_text=str_replace("xqstx"," [vraag] ",$antw_text); $cmds_bzv2=$invr_bzv1."[splt[".$invr_taal."[".$invr_corp."[".$antw_key."[0"; // echo "
GW27 INVR BZV2 ".$cmds_bzv2."
"; // include ("chbt-cmds-code-2.php"); } if ($file_corp != null and (substr($antw_text,0,6) != "./data")) { // echo "
".$file_corp.""; $antw_text=$antw_text." ".$file_corp; } } if ($e== 1) { $antw_text=str_replace("xqstx"," [vraag] ",$antw_text); echo "
".$antw_scre." ".$antw_text.""; } } } ///////////////////// $read_text= "Mijn eerste reactie is afkomstig van ".$file_corp. " en luidt ".$tref_antw; require_once("smta-rss.php"); $read_text= "Inzoomen op meer informatie"; require_once("smta-rss.php"); echo "
Inzoomen op meer informatie"; // print_r($sngl_array); foreach($sngl_array as $sngl_key => $sngl_val) { echo "
INVR CHBT ".$invr_chbt; $ssave_bzv1=str_replace(" ","+",$save_bzv1); $sngl_key=trim($sngl_key); $cntr_sbst=substr_count ($sngl_key," "); // echo "
CNTR STRINGS ".$cntr_sbst; $ssngl_key=str_replace(" ","+",$sngl_key); if ($sngl_key != null and $cntr_sbst ==0) { echo "
".$sngl_key.""; } else { echo "
".$sngl_key.""; } } $invr_lgrm=$invr_lgrm." ".$antw_text; //////////////////////////////EPILOOG $mb_rslt=preg_split('/(?"; foreach($mb_rslt as $mb_key => $mb_val) { $mb_lowr=mb_strtolower($mb_val,'UTF-8'); $mb_text=$mb_text.$mb_lowr; } // echo "
TEST TLKD MB TEXT ".$mb_text; $mb_dtls=explode(" ",$mb_text); $new_mb=""; $tl=0; foreach($mb_dtls as $mb_key => $mb_val) { // echo "
KEY ".$mb_key." VAL ".$mb_val; $new_mb=$new_mb." ".$mb_val; } trim($new_mb); $unew_mb=urlencode($new_mb); $new_lnks=mb_strtolower($unew_mb); // echo "
NEW LINE ".$new_lnks; $line=urldecode($new_lnks); $strn_val=$line; $perd_bzv1=str_replace("-",".",$strn_val); $perd_bzv1=str_replace(":",".",$perd_bzv1); $perd_bzv1=str_replace(",",".",$perd_bzv1); $line=strtolower($perd_bzv1); $line=str_replace("."," ",$strn_val); $read_text=$read_text."
EPILOOG voor ".$invr_bzv1." Tot slot wil ik met u delen wat ik voor u gevonden heb bij ".$invr_corp; // echo urlencode($read_text); $read_wrds=explode(" ",$line); // print_r($read_wrds); asort($read_wrds); foreach($read_wrds as $read_key => $read_val) { if (strlen($read_val)> 2) { $wrds_array[$read_val]=$wrds_array[$read_val]+1; } } arsort($wrds_array); foreach($wrds_array as $wrds_key => $wrds_val) { echo "
WRDS KEY ".$wrds_key." WRDS VAL ".$wrds_val; } // echo $read_text; require_once("smta-rss.php"); ?>